home *** CD-ROM | disk | FTP | other *** search
/ Pulp 1 / Pulp_01_19xx_Lost_Brain_de.d64 / > tuneplay 1 < (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  423b  |  11 lines
  1. 0 poke53280,0:poke53281,0:print"[147]":poke808,225:poke788,52
  2. 10 if a=0thena=1:load"8",8,1:sys4096
  3. 12 sys4096:print"[147]    ...tuneplayer v1 by lost brain..."
  4. 13 print"[158]       tune today by heinmueck/tum"
  5. 14 print"         press space to go on..."
  6. 15 poke198,0:wait198,1:gosub20:fori=56176to56216:pokei,1:next
  7. 16 fori=1908to1939:pokei,81::::::::pokei,32:sys4099:next
  8. 17 fori=1939to1908step-1:pokei,81::::::::pokei,32:sys4099:next
  9. 18 goto 16
  10. 20 print"[145]                                          ":return
  11.